home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MENU_UTL / PULL70B / PULLDIR-.PAS < prev    next >
Pascal/Delphi Source File  |  1993-09-24  |  1KB  |  48 lines
  1. { ========================================================================== }
  2. { Pulldir.pas - Submenu pull-down directory.              var 7.0b, 09-24-93 }
  3. {                                                                            }
  4. { This directory was designed with a heavy emphasis on human factors.        }
  5. { High speed retrieval, scrolling, non-flickering hilite, letter scanning,   }
  6. { single column and lower-case readability, right-justified extension,       }
  7. { pick list.                                                                 }
  8. { Only uses 56 global bytes of data.                                         }
  9. {   Copyright (c) 1988,1993 James H. LeMay, All rights reserved.             }
  10. { ========================================================================== }
  11.  
  12. {$i pulldefs.inc }
  13.  
  14. UNIT PullDir;
  15.  
  16. INTERFACE
  17.  
  18. uses
  19.   Wndw;
  20.  
  21. type
  22.   FileNameStr = string[12];
  23.   DirectoryMenuRec = record
  24.     Title:                   string[9];
  25.     MenuLines,
  26.     Row,Col,Rows,Cols,
  27.     HiLiteLine,
  28.     Battr,Wattr,Hattr:       byte;
  29.     Border:                  Borders;
  30.     LinkDir:                 DirType;
  31.     MsgLineNum, HelpWndwNum: byte
  32.   end;
  33.  
  34. var
  35.   DirectoryMenu: DirectoryMenuRec;
  36.  
  37. const
  38.   FileMask:  FileNameStr = '*.*';
  39.  
  40. procedure PullDirectory (var NameToChange: FileNameStr;
  41.                              NameToHiLite: FileNameStr);
  42.  
  43. IMPLEMENTATION
  44.  
  45.   { Complete source code is provided to registered users. }
  46.  
  47. END.
  48.